For Each Variant[] (gb)

Dim hVariantArray As Variant[]
Dim aVariant As Variant
For Each aVariant In hVariantArray
  ...
Next

Enumera ogni elemento memorizzato nell'array.